home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / QuickTime™ 1.5 interfaces / ImageCompression.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  39.1 KB  |  753 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ;  All rights reserved
  3. ; 
  4. ; Created: Tuesday, October 13, 1992 at 4:31 PM
  5. ;  ImageCompression.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ;  Copyright Apple Computer, Inc. 1991, 1992
  9. ;  All rights reserved
  10. ; 
  11.  
  12. ; $IFC UNDEFINED UsingIncludes
  13. ; $SETC UsingIncludes := 0
  14. ; $ENDC
  15.  
  16. ; $IFC NOT UsingIncludes
  17.  
  18. ; $ENDC
  19.  
  20. ; $IFC UNDEFINED UsingImageCompression
  21. ; $SETC UsingImageCompression := 1
  22.  
  23. ; $I+
  24. ; $SETC ImageCompressionIncludes := UsingIncludes
  25. ; $SETC UsingIncludes := 1
  26. ; $IFC UNDEFINED UsingQuickDraw
  27.  
  28. (require-interface 'QUICKDRAW)  ; $I $$Shell(PInterfaces)QuickDraw.p
  29. ; $ENDC
  30. ; $IFC UNDEFINED UsingQDOffscreen
  31.  
  32. (require-interface 'QDOFFSCREEN); $I $$Shell(PInterfaces)QDOffscreen.p
  33. ; $ENDC
  34. ; $IFC UNDEFINED UsingTypes
  35.  
  36. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  37. ; $ENDC
  38. ; $IFC UNDEFINED UsingComponents
  39.  
  40. (require-interface 'COMPONENTS) ; $I $$Shell(PInterfaces)Components.p
  41. ; $ENDC
  42. ; $IFC UNDEFINED UsingStandardFile
  43.  
  44. (require-interface 'STANDARDFILE); $I $$Shell(PInterfaces)StandardFile.p
  45. ; $ENDC
  46. ; $SETC UsingIncludes := ImageCompressionIncludes
  47.  
  48. (defconstant $gestaltCompressionMgr :|icmp|)
  49.  
  50. ;   Matrix stuff  
  51. (defrecord MatrixRecord 
  52.    (matrix (:ARRAY :SIGNED-LONG 3 3))
  53.    )
  54. (def-mactype :MATRIXRECORDPTR (find-mactype :POINTER))
  55.  
  56. (defrecord FixedPoint 
  57.    (x :SIGNED-LONG)
  58.    (y :SIGNED-LONG)
  59.    )
  60.  
  61. (defrecord FixedRect 
  62.    (left :SIGNED-LONG)
  63.    (top :SIGNED-LONG)
  64.    (right :SIGNED-LONG)
  65.    (bottom :SIGNED-LONG)
  66.    )
  67.  
  68. ;  These are the bits that are set in the Component flags, and also in the codecInfo struct. 
  69.  
  70. (defconstant $codecInfoDoes1 #X1);  codec can work with 1-bit pixels 
  71. (defconstant $codecInfoDoes2 #X2);  codec can work with 2-bit pixels 
  72. (defconstant $codecInfoDoes4 #X4);  codec can work with 4-bit pixels 
  73. (defconstant $codecInfoDoes8 #X8);  codec can work with 8-bit pixels 
  74. (defconstant $codecInfoDoes16 #X10);  codec can work with 16-bit pixels 
  75. (defconstant $codecInfoDoes32 #X20);  codec can work with 32-bit pixels 
  76. (defconstant $codecInfoDoesDither #X40);  codec can do ditherMode 
  77. (defconstant $codecInfoDoesStretch #X80);  codec can stretch to arbitrary sizes 
  78. (defconstant $codecInfoDoesShrink #X100);  codec can shrink to arbitrary sizes 
  79. (defconstant $codecInfoDoesMask #X200);  codec can mask to clipping regions 
  80.  
  81. (defconstant $codecInfoDoesTemporal #X400);  codec can handle temporal redundancy 
  82.  
  83. (defconstant $codecInfoDoesDouble #X800);  codec can stretch to double size exactly 
  84. (defconstant $codecInfoDoesQuad #X1000);  codec can stretch to quadruple size exactly 
  85. (defconstant $codecInfoDoesHalf #X2000);  codec can shrink to half size 
  86. (defconstant $codecInfoDoesQuarter #X4000);  codec can shrink to quarter size 
  87.  
  88. (defconstant $codecInfoDoesRotate #X8000);  codec can rotate on decompress 
  89. (defconstant $codecInfoDoesHorizFlip #X10000);  codec can flip horizontally on decompress 
  90. (defconstant $codecInfoDoesVertFlip #X20000);  codec can flip vertically on decompress 
  91. (defconstant $codecInfoDoesSkew #X40000);  codec can skew on decompress 
  92. (defconstant $codecInfoDoesBlend #X80000);  codec can blend on decompress 
  93. (defconstant $codecInfoDoesWarp #X100000);  codec can warp arbitrarily on decompress 
  94. (defconstant $codecInfoDoesRecompress #X200000);  codec can recompress image without accumulating errors 
  95. (defconstant $codecInfoDoesSpool #X400000);  codec can spool image data 
  96. (defconstant $codecInfoDoesRateConstrain #X800000)
  97.  
  98. (defconstant $codecInfoDepth1 #X1);  compressed data at 1 bpp depth available 
  99. (defconstant $codecInfoDepth2 #X2);  compressed data at 2 bpp depth available 
  100. (defconstant $codecInfoDepth4 #X4);  compressed data at 4 bpp depth available 
  101. (defconstant $codecInfoDepth8 #X8);  compressed data at 8 bpp depth available 
  102. (defconstant $codecInfoDepth16 #X10);  compressed data at 16 bpp depth available 
  103. (defconstant $codecInfoDepth32 #X20);  compressed data at 32 bpp depth available 
  104. (defconstant $codecInfoDepth24 #X40);  compressed data at 24 bpp depth available 
  105. (defconstant $codecInfoDepth33 #X80);  compressed data at 1 bpp monochrome depth  available 
  106. (defconstant $codecInfoDepth34 #X100);  compressed data at 2 bpp grayscale depth available 
  107. (defconstant $codecInfoDepth36 #X200);  compressed data at 4 bpp grayscale depth available 
  108. (defconstant $codecInfoDepth40 #X400);  compressed data at 8 bpp grayscale depth available 
  109. (defconstant $codecInfoStoresClut #X800);  compressed data can have custom cluts 
  110. (defconstant $codecInfoDoesLossless #X1000);  compressed data can be stored in lossless format 
  111. (defconstant $codecInfoSequenceSensitive #X2000)
  112.  
  113. (defconstant $codecFlagUseImageBuffer #X1);  (input) allocate buffer for whole image on decompress sequence 
  114. (defconstant $codecFlagUseScreenBuffer #X2);  (input) allocate buffer for screen on decompress sequence for faster updates 
  115. (defconstant $codecFlagUpdatePrevious #X4);  (input) udate previous buffer on compress sequence 
  116. (defconstant $codecFlagNoScreenUpdate #X8);  (input) dont update screen, but do update image buffer if allocated 
  117. (defconstant $codecFlagWasCompressed #X10);  (input) hint to compressor that image was previously compressed 
  118. (defconstant $codecFlagDontOffscreen #X20);  (input) return error instead of automatically going offscreen 
  119. (defconstant $codecFlagUpdatePreviousComp #X40);  (input) udate previous buffer on compress sequence 
  120. (defconstant $codecFlagForceKeyFrame #X80);  (input) when sent to CompressSequenceFrame, forces that frame to be a key frame 
  121. (defconstant $codecFlagOnlyScreenUpdate #X100);  (input) only update screen from 
  122. (defconstant $codecFlagLiveGrab #X200);  (input) data being compressed is from live source (speed is critical) 
  123. (defconstant $codecFlagDontUseNewImageBuffer #X400);  (input) return error if image buffer is new or reallocated 
  124. (defconstant $codecFlagInterlaceUpdate #X800);  (input) use interlaced update 
  125.  
  126. (defconstant $codecFlagUsedNewImageBuffer #X4000);  (output) indicates that image buffer was first used on this decompress sequence 
  127. (defconstant $codecFlagUsedImageBuffer #X8000);  (output) indicates that image buffer was used on this decompress sequence 
  128.  
  129. (defconstant $codecErr -8960)   ;  the codec returned an error 
  130. (defconstant $noCodecErr -8961) ;  the specified codec could not be found 
  131. (defconstant $codecUnimpErr -8962);  this feature is not implemented by the specified codec 
  132. (defconstant $codecSizeErr -8963)
  133. (defconstant $codecScreenBufErr -8964);  the screen buffer could not be allocated 
  134. (defconstant $codecImageBufErr -8965);  the image buffer could not be allocated 
  135. (defconstant $codecSpoolErr -8966);  the compressed data must be in memory (spooling did not work) 
  136. (defconstant $codecAbortErr -8967);  the operation was aborted by the progress proc 
  137. (defconstant $codecWouldOffscreenErr -8968);  an offscreen access would have been used, but wasn't allowed because codecFlagDontOffscreen was set 
  138. (defconstant $codecBadDataErr -8969);  compressed data was found to have inconsistencies 
  139. (defconstant $codecDataVersErr -8970);  compressed data was of a format version that codec couldn't handle 
  140. (defconstant $codecExtensionNotFoundErr -8971)
  141. (defconstant $codecConditionErr -8972);  codec can not do requested operation 
  142. (defconstant $codecOpenErr -8973);  the codec  could not be opened 
  143.  
  144. (defconstant $codecMinimumDataSize 32768);  The minimum data size for spooling in or out data 
  145.  
  146. (defconstant $compressorComponentType :|imco|);  the type for "Components" which compress images 
  147. (defconstant $decompressorComponentType :|imdc|);  the type for "Components" which decompress images 
  148.  
  149. (def-mactype :COMPRESSORCOMPONENT (find-mactype :POINTER));  a Component which compresses images 
  150. (def-mactype :DECOMPRESSORCOMPONENT (find-mactype :POINTER));  a Component which decompresses images 
  151. (def-mactype :CODECCOMPONENT (find-mactype :POINTER));  a Component which decompresses or compresses images 
  152.  
  153. (defconstant $anyCodec 0)       ;  take first working codec of given type 
  154. (defconstant $bestSpeedCodec -1);  take fastest codec of given type 
  155. (defconstant $bestFidelityCodec -2);  take codec which is most accurate
  156. (defconstant $bestCompressionCodec -3);  take codec of given type that is most accurate 
  157.  
  158. (def-mactype :CODECTYPE (find-mactype :OSTYPE));  type descriptor for codecs i.e: 'appl','jpeg','rle ' 
  159.  
  160. (def-mactype :CODECFLAGS (find-mactype :SIGNED-INTEGER));  flags for codec manager calls 
  161.  
  162. (def-mactype :CODECQ (find-mactype :SIGNED-LONG))
  163.  
  164. (defconstant $codecLosslessQuality #X400)
  165. (defconstant $codecMaxQuality #X3FF)
  166. (defconstant $codecMinQuality #X0)
  167. (defconstant $codecLowQuality #X100)
  168. (defconstant $codecNormalQuality #X200)
  169. (defconstant $codecHighQuality #X300)
  170.  
  171. (def-mactype :DATAPROCPTR (find-mactype :POINTER))
  172. (def-mactype :FLUSHPROCPTR (find-mactype :POINTER))
  173. (def-mactype :COMPLETIONPROCPTR (find-mactype :POINTER))
  174.  
  175. (defconstant $codecCompletionSource 1);  asynchronous codec is done with source data  
  176. (defconstant $codecCompletionDest 2);  asynchronous codec is done with destination data  
  177.  
  178. (def-mactype :PROGRESSPROCPTR (find-mactype :POINTER))
  179.  
  180. (defconstant $codecProgressOpen 0)
  181. (defconstant $codecProgressUpdatePercent 1)
  182. (defconstant $codecProgressClose 2)
  183.  
  184. (def-mactype :STDPIXPROCPTR (find-mactype :POINTER))
  185.  
  186. (def-mactype :IMAGESEQUENCE (find-mactype :SIGNED-LONG))
  187.  
  188. (def-mactype :PROGRESSPROCRECORDPTR (find-mactype :POINTER))
  189. (defrecord ProgressProcRecord 
  190.    (progressProc :POINTER)
  191.    (progressRefCon :SIGNED-LONG)
  192.    )
  193.  
  194. (def-mactype :COMPLETIONPROCRECORDPTR (find-mactype :POINTER))
  195. (defrecord CompletionProcRecord 
  196.    (completionProc :POINTER)
  197.    (completionRefCon :SIGNED-LONG)
  198.    )
  199.  
  200. (def-mactype :DATAPROCRECORDPTR (find-mactype :POINTER))
  201. (defrecord DataProcRecord 
  202.    (dataProc :POINTER)
  203.    (dataRefCon :SIGNED-LONG)
  204.    )
  205.  
  206. (def-mactype :FLUSHPROCRECORDPTR (find-mactype :POINTER))
  207. (defrecord FlushProcRecord 
  208.    (flushProc :POINTER)
  209.    (flushRefCon :SIGNED-LONG)
  210.    )
  211.  
  212. (def-mactype :ALIGNMENTPROCPTR (find-mactype :POINTER))
  213.  
  214. (def-mactype :ALIGNMENTPROCRECORDPTR (find-mactype :POINTER))
  215. (defrecord AlignmentProcRecord 
  216.    (alignmentProc :POINTER)
  217.    (alignmentRefCon :SIGNED-LONG)
  218.    )
  219.  
  220. (def-mactype :DATARATEPARAMSPTR (find-mactype :POINTER))
  221. (defrecord DataRateParams 
  222.    (dataRate :SIGNED-LONG)
  223.    (dataOverrun :SIGNED-LONG)
  224.    (frameDuration :SIGNED-LONG)
  225.    (keyFrameRate :SIGNED-LONG)
  226.    (minSpatialQuality :SIGNED-LONG)
  227.    (minTemporalQuality :SIGNED-LONG)
  228.    )
  229.  
  230. ;  
  231. ;     The ImageDescription is private data which is produced when an image or sequence 
  232. ;     is compressed. It fully describes the format of the compressed data.
  233.  
  234. (def-mactype :IMAGEDESCRIPTIONPTR (find-mactype :POINTER))
  235. (def-mactype :IMAGEDESCRIPTIONHANDLE (find-mactype :HANDLE))
  236. (defrecord (ImageDescription :handle) 
  237.    (idSize :SIGNED-LONG)        ;  total size of ImageDescription including extra data ( CLUTs and other per sequence data 
  238.    (cType :OSTYPE)              ;  what kind of codec compressed this data 
  239.    (resvd1 :SIGNED-LONG)        ;  reserved for apple use 
  240.    (resvd2 :SIGNED-INTEGER)     ;  reserved for apple use 
  241.    (dataRefIndex :SIGNED-INTEGER);  set to zero 
  242.    (version :SIGNED-INTEGER)    ;  which version is this data 
  243.    (revisionLevel :SIGNED-INTEGER);  what version of that codec did this 
  244.    (vendor :SIGNED-LONG)        ;  whose  codec compressed this data 
  245.    (temporalQuality :SIGNED-LONG);  what was the temporal quality factor          
  246.    (spatialQuality :SIGNED-LONG);  what was the spatial quality factor          
  247.    (width :SIGNED-INTEGER)      ;  how many pixels wide is this data 
  248.    (height :SIGNED-INTEGER)     ;  how many pixels high is this data 
  249.    (hRes :SIGNED-LONG)          ;  horizontal resolution 
  250.    (vRes :SIGNED-LONG)          ;  vertical resolution 
  251.    (dataSize :SIGNED-LONG)      ;  if known, the size of data for this image descriptor 
  252.    (frameCount :SIGNED-INTEGER) ;  number of frames this description applies to 
  253.    (name (:ARRAY :CHARACTER 32));  name of codec ( in case not installed ) 
  254.    (depth :SIGNED-INTEGER)      ;  what depth is this data (1-32) or ( 33-40 grayscale ) 
  255.    (clutID :SIGNED-INTEGER)     ;  clut id or if 0 clut follows  or -1 if no clut 
  256.    )
  257.  
  258. ;  
  259. ;     The CodecInfo is the information returned as the codecInfo struct by a codec Component
  260. ;     to the codec manager or to the caller. It is specific to the particular codec
  261. ;     implementation and not to the codec type.
  262.  
  263. (defrecord CodecInfo 
  264.    (typeName (:ARRAY :CHARACTER 32));  name of the codec type i.e.: 'Apple Image Compression' 
  265.    (version :SIGNED-INTEGER)    ;  version of the codec data that this codec knows about 
  266.    (revisionLevel :SIGNED-INTEGER);  revision level of this codec i.e: 0x00010001 (1.0.1) 
  267.    (vendor :SIGNED-LONG)        ;  Maker of this codec i.e: 'appl' 
  268.    (decompressFlags :SIGNED-LONG);  codecInfo flags for decompression capabilities 
  269.    (compressFlags :SIGNED-LONG) ;  codecInfo flags for compression capabilities 
  270.    (formatFlags :SIGNED-LONG)   ;  codecInfo flags for compression format details 
  271.    (compressionAccuracy :CHARACTER);  measure (1-255) of accuracy of this codec for compress (0 if unknown) 
  272.    (decompressionAccuracy :CHARACTER);  measure (1-255) of accuracy of this codec for decompress (0 if unknown) 
  273.    (compressionSpeed :SIGNED-INTEGER);  ( millisecs for compressing 320x240 on base mac II) (0 if unknown) 
  274.    (decompressionSpeed :SIGNED-INTEGER);  ( millisecs for decompressing 320x240 on mac II)(0 if unknown) 
  275.    (compressionLevel :CHARACTER);  measure (1-255) of compression level of this codec (0 if unknown) 
  276.    (resvd :CHARACTER)           ;  pad 
  277.    (minimumHeight :SIGNED-INTEGER);  minimum height of image (block size) 
  278.    (minimumWidth :SIGNED-INTEGER);  minimum width of image (block size) 
  279.    (decompressPipelineLatency :SIGNED-INTEGER);  in milliseconds ( for asynchronous codecs ) 
  280.    (compressPipelineLatency :SIGNED-INTEGER);  in milliseconds ( for asynchronous codecs ) 
  281.    (privateData :SIGNED-LONG)
  282.    )
  283.  
  284. ;  Name list returned by GetCodecNameList. 
  285. (defrecord CodecNameSpec 
  286.    (codec (:POINTER :PRIVATECOMPONENTRECORD))
  287.    (cType :OSTYPE)
  288.    (typeName (:ARRAY :CHARACTER 32))
  289.    (name :HANDLE)
  290.    )
  291.  
  292. (def-mactype :CODECNAMESPECLISTPTR (find-mactype :POINTER))
  293. (defrecord CodecNameSpecList 
  294.    (count :SIGNED-INTEGER)
  295.    (list (:ARRAY :CODECNAMESPEC 1))
  296.    )
  297.  
  298. (defconstant $defaultDither 0)
  299. (defconstant $forceDither 1)
  300. (defconstant $suppressDither 2)
  301.  
  302.  
  303. (deftrap _CODECMANAGERVERSION ((VERSION (:POINTER :SIGNED-LONG)))
  304.    (:STACK :SIGNED-INTEGER)
  305.    (:STACK-TRAP #xAAA3 :D0 0 VERSION))
  306.  
  307. (deftrap _GETCODECNAMELIST ((LIST (:POINTER (:POINTER :CODECNAMESPECLIST))) (SHOWALL :SIGNED-INTEGER))
  308.    (:STACK :SIGNED-INTEGER)
  309.    (:STACK-TRAP #xAAA3 :D0 1 LIST SHOWALL))
  310.  
  311. (deftrap _DISPOSECODECNAMELIST ((LIST (:POINTER :CODECNAMESPECLIST)))
  312.    (:STACK :SIGNED-INTEGER)
  313.    (:STACK-TRAP #xAAA3 :D0 15 LIST))
  314.  
  315. (deftrap _GETCODECINFO ((INFO (:POINTER :CODECINFO)) (CTYPE :OSTYPE) (CODEC (:POINTER :PRIVATECOMPONENTRECORD)))
  316.    (:STACK :SIGNED-INTEGER)
  317.    (:STACK-TRAP #xAAA3 :D0 3 INFO CTYPE CODEC))
  318.  
  319. (deftrap _GETMAXCOMPRESSIONSIZE ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (COLORDEPTH :SIGNED-INTEGER) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE) (CODEC (:POINTER :PRIVATECOMPONENTRECORD)) (SIZE (:POINTER :SIGNED-LONG)))
  320.    (:STACK :SIGNED-INTEGER)
  321.    (:STACK-TRAP #xAAA3 :D0 4 SRC SRCRECT COLORDEPTH QUALITY CTYPE CODEC SIZE))
  322.  
  323. (deftrap _GETCOMPRESSIONTIME ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (COLORDEPTH :SIGNED-INTEGER) (CTYPE :OSTYPE) (CODEC (:POINTER :PRIVATECOMPONENTRECORD)) (SPATIALQUALITY (:POINTER :SIGNED-LONG)) (TEMPORALQUALITY (:POINTER :SIGNED-LONG)) (COMPRESSTIME (:POINTER :SIGNED-LONG)))
  324.    (:STACK :SIGNED-INTEGER)
  325.    (:STACK-TRAP #xAAA3 :D0 5 SRC SRCRECT COLORDEPTH CTYPE CODEC SPATIALQUALITY TEMPORALQUALITY COMPRESSTIME))
  326.  
  327. (deftrap _COMPRESSIMAGE ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER))
  328.    (:STACK :SIGNED-INTEGER)
  329.    (:STACK-TRAP #xAAA3 :D0 6 SRC SRCRECT QUALITY CTYPE DESC DATA))
  330.  
  331. (deftrap _FCOMPRESSIMAGE ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (COLORDEPTH :SIGNED-INTEGER) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE) (CODEC (:POINTER :PRIVATECOMPONENTRECORD)) (CLUT (:HANDLE :COLORTABLE)) (FLAGS :SIGNED-INTEGER) (BUFFERSIZE :SIGNED-LONG) (FLUSHPROC (:POINTER :FLUSHPROCRECORD)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER))
  332.    (:STACK :SIGNED-INTEGER)
  333.    (:STACK-TRAP #xAAA3 :D0 7 SRC SRCRECT COLORDEPTH QUALITY CTYPE CODEC CLUT FLAGS BUFFERSIZE FLUSHPROC PROGRESSPROC DESC DATA))
  334.  
  335. (deftrap _DECOMPRESSIMAGE ((DATA :POINTER) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DST (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DSTRECT :RECT) (MODE :SIGNED-INTEGER) (MASK (:HANDLE :REGION)))
  336.    (:STACK :SIGNED-INTEGER)
  337.    (:STACK-TRAP #xAAA3 :D0 8 DATA DESC DST SRCRECT DSTRECT MODE MASK))
  338.  
  339. (deftrap _FDECOMPRESSIMAGE ((DATA :POINTER) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DST (:HANDLE :PIXMAP)) (SRCRECT :RECT) (MATRIX (:POINTER :MATRIXRECORD)) (MODE :SIGNED-INTEGER) (MASK (:HANDLE :REGION)) (MATTE (:HANDLE :PIXMAP)) (MATTERECT :RECT) (ACCURACY :SIGNED-LONG) (CODEC (:POINTER :PRIVATECOMPONENTRECORD)) (BUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  340.    (:STACK :SIGNED-INTEGER)
  341.    (:STACK-TRAP #xAAA3 :D0 9 DATA DESC DST SRCRECT MATRIX MODE MASK MATTE MATTERECT ACCURACY CODEC BUFFERSIZE DATAPROC PROGRESSPROC))
  342.  
  343. (deftrap _COMPRESSSEQUENCEBEGIN ((SEQID (:POINTER :SIGNED-LONG)) (SRC (:HANDLE :PIXMAP)) (PREV (:HANDLE :PIXMAP)) (SRCRECT :RECT) (PREVRECT :RECT) (COLORDEPTH :SIGNED-INTEGER) (CTYPE :OSTYPE) (CODEC (:POINTER :PRIVATECOMPONENTRECORD)) (SPATIALQUALITY :SIGNED-LONG) (TEMPORALQUALITY :SIGNED-LONG) (KEYFRAMERATE :SIGNED-LONG) (CLUT (:HANDLE :COLORTABLE)) (FLAGS :SIGNED-INTEGER) (DESC (:HANDLE :IMAGEDESCRIPTION)))
  344.    (:STACK :SIGNED-INTEGER)
  345.    (:STACK-TRAP #xAAA3 :D0 10 SEQID SRC PREV SRCRECT PREVRECT COLORDEPTH CTYPE CODEC SPATIALQUALITY TEMPORALQUALITY KEYFRAMERATE CLUT FLAGS DESC))
  346.  
  347. #| Not in ROM - INLINE =  #x206F #x0004 #x4250 #x52AF #x0004 #x700B #xAAA3 |#
  348. ; Hand translated
  349. (deftrap _COMPRESSSEQUENCEFRAME ((SEQID :SIGNED-LONG) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (FLAGS :SIGNED-INTEGER) (DATA :POINTER) (DATASIZE (:POINTER :SIGNED-LONG)) (SIMILARITY (:POINTER :UNSIGNED-BYTE)) (ASYNCCOMPLETIONPROC (:POINTER :COMPLETIONPROCRECORD)))
  350.    (:no-trap :SIGNED-INTEGER)
  351.    (:no-trap
  352.     (ccl::with-macptrs ((incd-proc (%inc-ptr asynccompletionproc)))
  353.       (setf (%get-word asynccompletionproc) 0)
  354.       (ccl::stack-trap #xaaa3
  355.                        :d0 #xb
  356.                        :word seqid
  357.                        :long src
  358.                        :long srcrect
  359.                        :word flags
  360.                        :long data
  361.                        :long datasize
  362.                        :long similarity
  363.                        :long incd-proc))))
  364.  
  365. (deftrap _DECOMPRESSSEQUENCEBEGIN ((SEQID (:POINTER :SIGNED-LONG)) (DESC (:HANDLE :IMAGEDESCRIPTION)) (PORT (:POINTER :CGRAFPORT)) (GDH (:HANDLE :GDEVICE)) (SRCRECT :RECT) (MATRIX (:POINTER :MATRIXRECORD)) (MODE :SIGNED-INTEGER) (MASK (:HANDLE :REGION)) (FLAGS :SIGNED-INTEGER) (ACCURACY :SIGNED-LONG) (CODEC (:POINTER :PRIVATECOMPONENTRECORD)))
  366.    (:STACK :SIGNED-INTEGER)
  367.    (:STACK-TRAP #xAAA3 :D0 13 SEQID DESC PORT GDH SRCRECT MATRIX MODE MASK FLAGS ACCURACY CODEC))
  368.  
  369. (deftrap _DECOMPRESSSEQUENCEFRAME ((SEQID :SIGNED-LONG) (DATA :POINTER) (INFLAGS :SIGNED-INTEGER) (OUTFLAGS (:POINTER :SIGNED-INTEGER)) (ASYNCCOMPLETIONPROC (:POINTER :COMPLETIONPROCRECORD)))
  370.    (:STACK :SIGNED-INTEGER)
  371.    (:STACK-TRAP #xAAA3 :D0 14 SEQID DATA INFLAGS OUTFLAGS ASYNCCOMPLETIONPROC))
  372.  
  373. (deftrap _SETDSEQUENCEMATRIX ((SEQID :SIGNED-LONG) (MATRIX (:POINTER :MATRIXRECORD)))
  374.    (:STACK :SIGNED-INTEGER)
  375.    (:STACK-TRAP #xAAA3 :D0 16 SEQID MATRIX))
  376.  
  377. (deftrap _SETDSEQUENCEMATTE ((SEQID :SIGNED-LONG) (MATTE (:HANDLE :PIXMAP)) (MATTERECT :RECT))
  378.    (:STACK :SIGNED-INTEGER)
  379.    (:STACK-TRAP #xAAA3 :D0 17 SEQID MATTE MATTERECT))
  380.  
  381. (deftrap _SETDSEQUENCEMASK ((SEQID :SIGNED-LONG) (MASK (:HANDLE :REGION)))
  382.    (:STACK :SIGNED-INTEGER)
  383.    (:STACK-TRAP #xAAA3 :D0 18 SEQID MASK))
  384.  
  385. (deftrap _SETDSEQUENCETRANSFERMODE ((SEQID :SIGNED-LONG) (MODE :SIGNED-INTEGER) (OPCOLOR :RGBCOLOR))
  386.    (:STACK :SIGNED-INTEGER)
  387.    (:STACK-TRAP #xAAA3 :D0 19 SEQID MODE OPCOLOR))
  388.  
  389. (deftrap _SETDSEQUENCEDATAPROC ((SEQID :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (BUFFERSIZE :SIGNED-LONG))
  390.    (:STACK :SIGNED-INTEGER)
  391.    (:STACK-TRAP #xAAA3 :D0 20 SEQID DATAPROC BUFFERSIZE))
  392.  
  393. (deftrap _SETDSEQUENCEACCURACY ((SEQID :SIGNED-LONG) (ACCURACY :SIGNED-LONG))
  394.    (:STACK :SIGNED-INTEGER)
  395.    (:STACK-TRAP #xAAA3 :D0 52 SEQID ACCURACY))
  396.  
  397. (deftrap _SETDSEQUENCESRCRECT ((SEQID :SIGNED-LONG) (SRCRECT :RECT))
  398.    (:STACK :SIGNED-INTEGER)
  399.    (:STACK-TRAP #xAAA3 :D0 53 SEQID SRCRECT))
  400.  
  401. (deftrap _GETDSEQUENCEIMAGEBUFFER ((SEQID :SIGNED-LONG) (GWORLD (:POINTER (:POINTER :CGRAFPORT))))
  402.    (:STACK :SIGNED-INTEGER)
  403.    (:STACK-TRAP #xAAA3 :D0 21 SEQID GWORLD))
  404.  
  405. (deftrap _GETDSEQUENCESCREENBUFFER ((SEQID :SIGNED-LONG) (GWORLD (:POINTER (:POINTER :CGRAFPORT))))
  406.    (:STACK :SIGNED-INTEGER)
  407.    (:STACK-TRAP #xAAA3 :D0 22 SEQID GWORLD))
  408.  
  409. (deftrap _SETCSEQUENCEQUALITY ((SEQID :SIGNED-LONG) (SPATIALQUALITY :SIGNED-LONG) (TEMPORALQUALITY :SIGNED-LONG))
  410.    (:STACK :SIGNED-INTEGER)
  411.    (:STACK-TRAP #xAAA3 :D0 23 SEQID SPATIALQUALITY TEMPORALQUALITY))
  412.  
  413. (deftrap _SETCSEQUENCEPREV ((SEQID :SIGNED-LONG) (PREV (:HANDLE :PIXMAP)) (PREVRECT :RECT))
  414.    (:STACK :SIGNED-INTEGER)
  415.    (:STACK-TRAP #xAAA3 :D0 24 SEQID PREV PREVRECT))
  416.  
  417. (deftrap _SETCSEQUENCEFLUSHPROC ((SEQID :SIGNED-LONG) (FLUSHPROC (:POINTER :FLUSHPROCRECORD)) (BUFFERSIZE :SIGNED-LONG))
  418.    (:STACK :SIGNED-INTEGER)
  419.    (:STACK-TRAP #xAAA3 :D0 51 SEQID FLUSHPROC BUFFERSIZE))
  420.  
  421. (deftrap _SETCSEQUENCEKEYFRAMERATE ((SEQID :SIGNED-LONG) (KEYFRAMERATE :SIGNED-LONG))
  422.    (:STACK :SIGNED-INTEGER)
  423.    (:STACK-TRAP #xAAA3 :D0 54 SEQID KEYFRAMERATE))
  424.  
  425. (deftrap _GETCSEQUENCEKEYFRAMERATE ((SEQID :SIGNED-LONG) (KEYFRAMERATE (:POINTER :SIGNED-LONG)))
  426.    (:STACK :SIGNED-INTEGER)
  427.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 12 16) 75) SEQID KEYFRAMERATE))
  428.  
  429. (deftrap _GETCSEQUENCEPREVBUFFER ((SEQID :SIGNED-LONG) (GWORLD (:POINTER (:POINTER :CGRAFPORT))))
  430.    (:STACK :SIGNED-INTEGER)
  431.    (:STACK-TRAP #xAAA3 :D0 25 SEQID GWORLD))
  432.  
  433. (deftrap _CDSEQUENCEBUSY ((SEQID :SIGNED-LONG))
  434.    (:STACK :SIGNED-INTEGER)
  435.    (:STACK-TRAP #xAAA3 :D0 26 SEQID))
  436.  
  437. (deftrap _CDSEQUENCEEND ((SEQID :SIGNED-LONG))
  438.    (:STACK :SIGNED-INTEGER)
  439.    (:STACK-TRAP #xAAA3 :D0 27 SEQID))
  440.  
  441. (deftrap _GETCOMPRESSEDIMAGESIZE ((DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER) (BUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (DATASIZE (:POINTER :SIGNED-LONG)))
  442.    (:STACK :SIGNED-INTEGER)
  443.    (:STACK-TRAP #xAAA3 :D0 28 DESC DATA BUFFERSIZE DATAPROC DATASIZE))
  444.  
  445. (deftrap _GETSIMILARITY ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER) (SIMILARITY (:POINTER :SIGNED-LONG)))
  446.    (:STACK :SIGNED-INTEGER)
  447.    (:STACK-TRAP #xAAA3 :D0 29 SRC SRCRECT DESC DATA SIMILARITY))
  448.  
  449. (deftrap _GETIMAGEDESCRIPTIONCTABLE ((DESC (:HANDLE :IMAGEDESCRIPTION)) (CTABLE (:POINTER (:HANDLE :COLORTABLE))))
  450.    (:STACK :SIGNED-INTEGER)
  451.    (:STACK-TRAP #xAAA3 :D0 30 DESC CTABLE))
  452.  
  453. (deftrap _SETIMAGEDESCRIPTIONCTABLE ((DESC (:HANDLE :IMAGEDESCRIPTION)) (CTABLE (:HANDLE :COLORTABLE)))
  454.    (:STACK :SIGNED-INTEGER)
  455.    (:STACK-TRAP #xAAA3 :D0 31 DESC CTABLE))
  456.  
  457. (deftrap _GETIMAGEDESCRIPTIONEXTENSION ((DESC (:HANDLE :IMAGEDESCRIPTION)) (EXTENSION (:POINTER :HANDLE)) (IDTYPE :SIGNED-LONG) (INDEX :SIGNED-LONG))
  458.    (:STACK :SIGNED-INTEGER)
  459.    (:STACK-TRAP #xAAA3 :D0 32 DESC EXTENSION IDTYPE INDEX))
  460.  
  461. (deftrap _SETIMAGEDESCRIPTIONEXTENSION ((DESC (:HANDLE :IMAGEDESCRIPTION)) (EXTENSION :HANDLE) (IDTYPE :SIGNED-LONG))
  462.    (:STACK :SIGNED-INTEGER)
  463.    (:STACK-TRAP #xAAA3 :D0 33 DESC EXTENSION IDTYPE))
  464.  
  465. (deftrap _REMOVEIMAGEDESCRIPTIONEXTENSION ((DESC (:HANDLE :IMAGEDESCRIPTION)) (IDTYPE :SIGNED-LONG) (INDEX :SIGNED-LONG))
  466.    (:STACK :SIGNED-INTEGER)
  467.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 12 16) 58) DESC IDTYPE INDEX))
  468.  
  469. (deftrap _COUNTIMAGEDESCRIPTIONEXTENSIONTYPE ((DESC (:HANDLE :IMAGEDESCRIPTION)) (IDTYPE :SIGNED-LONG) (COUNT (:POINTER :SIGNED-LONG)))
  470.    (:STACK :SIGNED-INTEGER)
  471.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 12 16) 59) DESC IDTYPE COUNT))
  472.  
  473. (deftrap _GETNEXTIMAGEDESCRIPTIONEXTENSIONTYPE ((DESC (:HANDLE :IMAGEDESCRIPTION)) (IDTYPE (:POINTER :SIGNED-LONG)))
  474.    (:STACK :SIGNED-INTEGER)
  475.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 8 16) 60) DESC IDTYPE))
  476.  
  477. (deftrap _FINDCODEC ((CTYPE :OSTYPE) (SPECCODEC (:POINTER :PRIVATECOMPONENTRECORD)) (COMPRESSOR (:POINTER (:POINTER :PRIVATECOMPONENTRECORD))) (DECOMPRESSOR (:POINTER (:POINTER :PRIVATECOMPONENTRECORD))))
  478.    (:STACK :SIGNED-INTEGER)
  479.    (:STACK-TRAP #xAAA3 :D0 35 CTYPE SPECCODEC COMPRESSOR DECOMPRESSOR))
  480.  
  481. (deftrap _COMPRESSPICTURE ((SRCPICTURE (:HANDLE :PICTURE)) (DSTPICTURE (:HANDLE :PICTURE)) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE))
  482.    (:STACK :SIGNED-INTEGER)
  483.    (:STACK-TRAP #xAAA3 :D0 36 SRCPICTURE DSTPICTURE QUALITY CTYPE))
  484.  
  485. (deftrap _FCOMPRESSPICTURE ((SRCPICTURE (:HANDLE :PICTURE)) (DSTPICTURE (:HANDLE :PICTURE)) (COLORDEPTH :SIGNED-INTEGER) (CLUT (:HANDLE :COLORTABLE)) (QUALITY :SIGNED-LONG) (DODITHER :SIGNED-INTEGER) (COMPRESSAGAIN :SIGNED-INTEGER) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)) (CTYPE :OSTYPE) (CODEC (:POINTER :PRIVATECOMPONENTRECORD)))
  486.    (:STACK :SIGNED-INTEGER)
  487.    (:STACK-TRAP #xAAA3 :D0 37 SRCPICTURE DSTPICTURE COLORDEPTH CLUT QUALITY DODITHER COMPRESSAGAIN PROGRESSPROC CTYPE CODEC))
  488.  
  489. (deftrap _COMPRESSPICTUREFILE ((SRCREFNUM :SIGNED-INTEGER) (DSTREFNUM :SIGNED-INTEGER) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE))
  490.    (:STACK :SIGNED-INTEGER)
  491.    (:STACK-TRAP #xAAA3 :D0 38 SRCREFNUM DSTREFNUM QUALITY CTYPE))
  492.  
  493. (deftrap _FCOMPRESSPICTUREFILE ((SRCREFNUM :SIGNED-INTEGER) (DSTREFNUM :SIGNED-INTEGER) (COLORDEPTH :SIGNED-INTEGER) (CLUT (:HANDLE :COLORTABLE)) (QUALITY :SIGNED-LONG) (DODITHER :SIGNED-INTEGER) (COMPRESSAGAIN :SIGNED-INTEGER) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)) (CTYPE :OSTYPE) (CODEC (:POINTER :PRIVATECOMPONENTRECORD)))
  494.    (:STACK :SIGNED-INTEGER)
  495.    (:STACK-TRAP #xAAA3 :D0 39 SRCREFNUM DSTREFNUM COLORDEPTH CLUT QUALITY DODITHER COMPRESSAGAIN PROGRESSPROC CTYPE CODEC))
  496.  
  497. (deftrap _GETPICTUREFILEHEADER ((REFNUM :SIGNED-INTEGER) (FRAME (:POINTER :RECT)) (HEADER (:POINTER :OPENCPICPARAMS)))
  498.    (:STACK :SIGNED-INTEGER)
  499.    (:STACK-TRAP #xAAA3 :D0 40 REFNUM FRAME HEADER))
  500.  
  501. (deftrap _DRAWPICTUREFILE ((REFNUM :SIGNED-INTEGER) (FRAME :RECT) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  502.    (:STACK :SIGNED-INTEGER)
  503.    (:STACK-TRAP #xAAA3 :D0 41 REFNUM FRAME PROGRESSPROC))
  504.  
  505. (deftrap _DRAWTRIMMEDPICTURE ((SRCPICTURE (:HANDLE :PICTURE)) (FRAME :RECT) (TRIMMASK (:HANDLE :REGION)) (DODITHER :SIGNED-INTEGER) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  506.    (:STACK :SIGNED-INTEGER)
  507.    (:STACK-TRAP #xAAA3 :D0 46 SRCPICTURE FRAME TRIMMASK DODITHER PROGRESSPROC))
  508.  
  509. (deftrap _DRAWTRIMMEDPICTUREFILE ((SRCREFNUM :SIGNED-INTEGER) (FRAME :RECT) (TRIMMASK (:HANDLE :REGION)) (DODITHER :SIGNED-INTEGER) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  510.    (:STACK :SIGNED-INTEGER)
  511.    (:STACK-TRAP #xAAA3 :D0 47 SRCREFNUM FRAME TRIMMASK DODITHER PROGRESSPROC))
  512.  
  513. (deftrap _MAKETHUMBNAILFROMPICTURE ((PICTURE (:HANDLE :PICTURE)) (COLORDEPTH :SIGNED-INTEGER) (THUMBNAIL (:HANDLE :PICTURE)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  514.    (:STACK :SIGNED-INTEGER)
  515.    (:STACK-TRAP #xAAA3 :D0 42 PICTURE COLORDEPTH THUMBNAIL PROGRESSPROC))
  516.  
  517. (deftrap _MAKETHUMBNAILFROMPICTUREFILE ((REFNUM :SIGNED-INTEGER) (COLORDEPTH :SIGNED-INTEGER) (THUMBNAIL (:HANDLE :PICTURE)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  518.    (:STACK :SIGNED-INTEGER)
  519.    (:STACK-TRAP #xAAA3 :D0 43 REFNUM COLORDEPTH THUMBNAIL PROGRESSPROC))
  520.  
  521. (deftrap _MAKETHUMBNAILFROMPIXMAP ((SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (COLORDEPTH :SIGNED-INTEGER) (THUMBNAIL (:HANDLE :PICTURE)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  522.    (:STACK :SIGNED-INTEGER)
  523.    (:STACK-TRAP #xAAA3 :D0 44 SRC SRCRECT COLORDEPTH THUMBNAIL PROGRESSPROC))
  524.  
  525. (deftrap _TRIMIMAGE ((DESC (:HANDLE :IMAGEDESCRIPTION)) (INDATA :POINTER) (INBUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (OUTDATA :POINTER) (OUTBUFFERSIZE :SIGNED-LONG) (FLUSHPROC (:POINTER :FLUSHPROCRECORD)) (TRIMRECT (:POINTER :RECT)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  526.    (:STACK :SIGNED-INTEGER)
  527.    (:STACK-TRAP #xAAA3 :D0 45 DESC INDATA INBUFFERSIZE DATAPROC OUTDATA OUTBUFFERSIZE FLUSHPROC TRIMRECT PROGRESSPROC))
  528.  
  529. (deftrap _CONVERTIMAGE ((SRCDD (:HANDLE :IMAGEDESCRIPTION)) (SRCDATA :POINTER) (COLORDEPTH :SIGNED-INTEGER) (CLUT (:HANDLE :COLORTABLE)) (ACCURACY :SIGNED-LONG) (QUALITY :SIGNED-LONG) (CTYPE :OSTYPE) (CODEC (:POINTER :PRIVATECOMPONENTRECORD)) (DSTDD (:HANDLE :IMAGEDESCRIPTION)) (DSTDATA :POINTER))
  530.    (:STACK :SIGNED-INTEGER)
  531.    (:STACK-TRAP #xAAA3 :D0 48 SRCDD SRCDATA COLORDEPTH CLUT ACCURACY QUALITY CTYPE CODEC DSTDD DSTDATA))
  532.  
  533. (deftrap _GETCOMPRESSEDPIXMAPINFO ((PIX (:POINTER :PIXMAP)) (DESC (:POINTER (:HANDLE :IMAGEDESCRIPTION))) (DATA (:POINTER :POINTER)) (BUFFERSIZE (:POINTER :SIGNED-LONG)) (DATAPROC (:POINTER :DATAPROCRECORD)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  534.    (:STACK :SIGNED-INTEGER)
  535.    (:STACK-TRAP #xAAA3 :D0 55 PIX DESC DATA BUFFERSIZE DATAPROC PROGRESSPROC))
  536.  
  537. (deftrap _SETCOMPRESSEDPIXMAPINFO ((PIX (:POINTER :PIXMAP)) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER) (BUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  538.    (:STACK :SIGNED-INTEGER)
  539.    (:STACK-TRAP #xAAA3 :D0 56 PIX DESC DATA BUFFERSIZE DATAPROC PROGRESSPROC))
  540.  
  541. (deftrap _STDPIX ((SRC (:POINTER :PIXMAP)) (SRCRECT :RECT) (MATRIX (:POINTER :MATRIXRECORD)) (MODE :SIGNED-INTEGER) (MASK (:HANDLE :REGION)) (MATTE (:POINTER :PIXMAP)) (MATTERECT :RECT) (FLAGS :SIGNED-INTEGER))
  542.    (:STACK :SIGNED-INTEGER)
  543.    (:STACK-TRAP #xAAA3 :D0 12 SRC SRCRECT MATRIX MODE MASK MATTE MATTERECT FLAGS))
  544.  
  545. ;    Standard Preview  
  546.  
  547.  
  548. (deftrap _SFGETFILEPREVIEW ((WHERE :POINT) (PROMPT (:STRING 255)) (FILEFILTER :POINTER) (NUMTYPES :SIGNED-INTEGER) (TYPELIST :SFTYPELIST) (DLGHOOK :POINTER) (REPLY (:POINTER :SFREPLY)))
  549.    NIL
  550.    (:STACK-TRAP #xAAA3 :D0 65 WHERE PROMPT FILEFILTER NUMTYPES TYPELIST DLGHOOK REPLY))
  551.  
  552.  
  553. (deftrap _SFPGETFILEPREVIEW ((WHERE :POINT) (PROMPT (:STRING 255)) (FILEFILTER :POINTER) (NUMTYPES :SIGNED-INTEGER) (TYPELIST :SFTYPELIST) (DLGHOOK :POINTER) (REPLY (:POINTER :SFREPLY)) (DLGID :SIGNED-INTEGER) (FILTERPROC :POINTER))
  554.    NIL
  555.    (:STACK-TRAP #xAAA3 :D0 66 WHERE PROMPT FILEFILTER NUMTYPES TYPELIST DLGHOOK REPLY DLGID FILTERPROC))
  556.  
  557.  
  558. (deftrap _STANDARDGETFILEPREVIEW ((FILEFILTER :POINTER) (NUMTYPES :SIGNED-INTEGER) (TYPELIST :SFTYPELIST) (REPLY (:POINTER :STANDARDFILEREPLY)))
  559.    NIL
  560.    (:STACK-TRAP #xAAA3 :D0 67 FILEFILTER NUMTYPES TYPELIST REPLY))
  561.  
  562.  
  563. (deftrap _CUSTOMGETFILEPREVIEW ((FILEFILTER :POINTER) (NUMTYPES :SIGNED-INTEGER) (TYPELIST :SFTYPELIST) (REPLY (:POINTER :STANDARDFILEREPLY)) (DLGID :SIGNED-INTEGER) (WHERE :POINT) (DLGHOOK :POINTER) (FILTERPROC :POINTER) (ACTIVELIST :POINTER) (ACTIVATEPROC :POINTER) (YOURDATAPTR :POINTER))
  564.    NIL
  565.    (:STACK-TRAP #xAAA3 :D0 68 FILEFILTER NUMTYPES TYPELIST REPLY DLGID WHERE DLGHOOK FILTERPROC ACTIVELIST ACTIVATEPROC YOURDATAPTR))
  566.  
  567.  
  568. (deftrap _MAKEFILEPREVIEW ((RESREFNUM :SIGNED-INTEGER) (PROGRESS (:POINTER :PROGRESSPROCRECORD)))
  569.    (:STACK :SIGNED-INTEGER)
  570.    (:STACK-TRAP #xAAA3 :D0 69 RESREFNUM PROGRESS))
  571.  
  572.  
  573. (deftrap _ADDFILEPREVIEW ((RESREFNUM :SIGNED-INTEGER) (PREVIEWTYPE :OSTYPE) (PREVIEWDATA :HANDLE))
  574.    (:STACK :SIGNED-INTEGER)
  575.    (:STACK-TRAP #xAAA3 :D0 70 RESREFNUM PREVIEWTYPE PREVIEWDATA))
  576.  
  577. (defconstant $sfpItemPreviewAreaUser 11)
  578. (defconstant $sfpItemPreviewStaticText 12)
  579. (defconstant $sfpItemPreviewDividerUser 13)
  580. (defconstant $sfpItemCreatePreviewButton 14)
  581. (defconstant $sfpItemShowPreviewButton 15)
  582.  
  583. (def-mactype :PREVIEWRESOURCEPTR (find-mactype :POINTER))
  584. (def-mactype :PREVIEWRESOURCEHANDLE (find-mactype :HANDLE))
  585. (defrecord (PreviewResourceRecord :handle) 
  586.    (modDate :SIGNED-LONG)
  587.    (version :SIGNED-INTEGER)
  588.    (resType :OSTYPE)
  589.    (resID :SIGNED-INTEGER)
  590.    )
  591.  
  592.  
  593. (deftrap _ALIGNSCREENRECT ((RP (:POINTER :RECT)) (ALIGNMENTPROC (:POINTER :ALIGNMENTPROCRECORD)))
  594.    NIL
  595.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 8 16) 76) RP ALIGNMENTPROC))
  596.  
  597. (deftrap _ALIGNWINDOW ((WP (:POINTER :GRAFPORT)) (FRONT :BOOLEAN) (ALIGNMENTRECT :RECTPTR) (ALIGNMENTPROC (:POINTER :ALIGNMENTPROCRECORD)))
  598.    NIL
  599.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 14 16) 77) WP FRONT ALIGNMENTRECT ALIGNMENTPROC))
  600.  
  601. (deftrap _DRAGALIGNEDWINDOW ((WP (:POINTER :GRAFPORT)) (STARTPT :POINT) (BOUNDSRECT (:POINTER :RECT)) (ALIGNMENTRECT (:POINTER :RECT)) (ALIGNMENTPROC (:POINTER :ALIGNMENTPROCRECORD)))
  602.    NIL
  603.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 20 16) 78) WP STARTPT BOUNDSRECT ALIGNMENTRECT ALIGNMENTPROC))
  604.  
  605. (deftrap _DRAGALIGNEDGRAYRGN ((THERGN (:HANDLE :REGION)) (STARTPT :POINT) (BOUNDSRECT (:POINTER :RECT)) (SLOPRECT (:POINTER :RECT)) (AXIS :SIGNED-INTEGER) (ACTIONPROC :POINTER) (ALIGNMENTRECT (:POINTER :RECT)) (ALIGNMENTPROC (:POINTER :ALIGNMENTPROCRECORD)))
  606.    (:STACK :SIGNED-LONG)
  607.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 30 16) 79) THERGN STARTPT BOUNDSRECT SLOPRECT AXIS ACTIONPROC ALIGNMENTRECT ALIGNMENTPROC))
  608.  
  609.  
  610. (deftrap _SETCSEQUENCEDATARATEPARAMS ((SEQID :SIGNED-LONG) (PARAMS (:POINTER :DATARATEPARAMS)))
  611.    (:STACK :SIGNED-INTEGER)
  612.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 8 16) 80) SEQID PARAMS))
  613.  
  614. (deftrap _SETCSEQUENCEFRAMENUMBER ((SEQID :SIGNED-LONG) (FRAMENUMBER :SIGNED-LONG))
  615.    (:STACK :SIGNED-INTEGER)
  616.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 8 16) 81) SEQID FRAMENUMBER))
  617.  
  618. (deftrap _NEWIMAGEGWORLD ((GWORLD (:POINTER (:POINTER :CGRAFPORT))) (IDH (:HANDLE :IMAGEDESCRIPTION)) (FLAGS :UNSIGNED-LONGINT))
  619.    (:STACK :SIGNED-INTEGER)
  620.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 12 16) 82) GWORLD IDH FLAGS))
  621.  
  622. (deftrap _GETCSEQUENCEDATARATEPARAMS ((SEQID :SIGNED-LONG) (PARAMS (:POINTER :DATARATEPARAMS)))
  623.    (:STACK :SIGNED-INTEGER)
  624.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 8 16) 83) SEQID PARAMS))
  625.  
  626. (deftrap _GETCSEQUENCEFRAMENUMBER ((SEQID :SIGNED-LONG) (FRAMENUMBER (:POINTER :SIGNED-LONG)))
  627.    (:STACK :SIGNED-INTEGER)
  628.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 8 16) 84) SEQID FRAMENUMBER))
  629.  
  630. (deftrap _GETBESTDEVICERECT ((GDH (:POINTER (:HANDLE :GDEVICE))) (RP (:POINTER :RECT)))
  631.    (:STACK :SIGNED-INTEGER)
  632.    (:STACK-TRAP #xAAA3 :D0 (+ (ASH 8 16) 85) GDH RP))
  633.  
  634. (defconstant $identityMatrixType #X0);  result if matrix is identity 
  635. (defconstant $translateMatrixType #X1);  result if matrix translates 
  636. (defconstant $scaleMatrixType #X2);  result if matrix scales 
  637. (defconstant $scaleTranslateMatrixType #X3);  result if matrix scales and translates 
  638. (defconstant $linearMatrixType #X4);  result if matrix is general 2 x 2 
  639. (defconstant $linearTranslateMatrixType #X5);  result if matrix is general 2 x 2 and translates 
  640. (defconstant $perspectiveMatrixType #X6);  result if matrix is general 3 x 3 
  641.  
  642.  
  643. (deftrap _GETMATRIXTYPE ((M :MATRIXRECORD))
  644.    (:STACK :SIGNED-INTEGER)
  645.    (:STACK-TRAP #xABC2 :D0 20 M))
  646.  
  647. (deftrap _COPYMATRIX ((M1 :MATRIXRECORD) (M2 (:POINTER :MATRIXRECORD)))
  648.    NIL
  649.    (:STACK-TRAP #xABC2 :D0 32 M1 M2))
  650.  
  651. (deftrap _EQUALMATRIX ((M1 :MATRIXRECORD) (M2 :MATRIXRECORD))
  652.    (:STACK :BOOLEAN)
  653.    (:STACK-TRAP #xABC2 :D0 33 M1 M2))
  654.  
  655. (deftrap _SETIDENTITYMATRIX ((MATRIX (:POINTER :MATRIXRECORD)))
  656.    NIL
  657.    (:STACK-TRAP #xABC2 :D0 21 MATRIX))
  658.  
  659. (deftrap _TRANSLATEMATRIX ((M (:POINTER :MATRIXRECORD)) (DELTAH :SIGNED-LONG) (DELTAV :SIGNED-LONG))
  660.    NIL
  661.    (:STACK-TRAP #xABC2 :D0 25 M DELTAH DELTAV))
  662.  
  663. (deftrap _ROTATEMATRIX ((M (:POINTER :MATRIXRECORD)) (DEGREES :SIGNED-LONG) (ABOUTX :SIGNED-LONG) (ABOUTY :SIGNED-LONG))
  664.    NIL
  665.    (:STACK-TRAP #xABC2 :D0 22 M DEGREES ABOUTX ABOUTY))
  666.  
  667. (deftrap _SCALEMATRIX ((M (:POINTER :MATRIXRECORD)) (SCALEX :SIGNED-LONG) (SCALEY :SIGNED-LONG) (ABOUTX :SIGNED-LONG) (ABOUTY :SIGNED-LONG))
  668.    NIL
  669.    (:STACK-TRAP #xABC2 :D0 23 M SCALEX SCALEY ABOUTX ABOUTY))
  670.  
  671. (deftrap _SKEWMATRIX ((M (:POINTER :MATRIXRECORD)) (SKEWX :SIGNED-LONG) (SKEWY :SIGNED-LONG) (ABOUTX :SIGNED-LONG) (ABOUTY :SIGNED-LONG))
  672.    NIL
  673.    (:STACK-TRAP #xABC2 :D0 24 M SKEWX SKEWY ABOUTX ABOUTY))
  674.  
  675. (deftrap _TRANSFORMFIXEDPOINTS ((M :MATRIXRECORD) (FPT (:POINTER :FIXEDPOINT)) (COUNT :SIGNED-LONG))
  676.    (:STACK :SIGNED-INTEGER)
  677.    (:STACK-TRAP #xABC2 :D0 34 M FPT COUNT))
  678.  
  679. (deftrap _TRANSFORMPOINTS ((MP :MATRIXRECORD) (PT1 (:POINTER :POINT)) (COUNT :SIGNED-LONG))
  680.    (:STACK :SIGNED-INTEGER)
  681.    (:STACK-TRAP #xABC2 :D0 35 MP PT1 COUNT))
  682.  
  683. (deftrap _TRANSFORMFIXEDRECT ((M :MATRIXRECORD) (FR (:POINTER :FIXEDRECT)) (FPP (:POINTER :FIXEDPOINT)))
  684.    (:STACK :BOOLEAN)
  685.    (:STACK-TRAP #xABC2 :D0 36 M FR FPP))
  686.  
  687. (deftrap _TRANSFORMRECT ((M :MATRIXRECORD) (R (:POINTER :RECT)) (FPP (:POINTER :FIXEDPOINT)))
  688.    (:STACK :BOOLEAN)
  689.    (:STACK-TRAP #xABC2 :D0 37 M R FPP))
  690.  
  691. (deftrap _TRANSFORMRGN ((MP :MATRIXRECORD) (R (:HANDLE :REGION)))
  692.    (:STACK :SIGNED-INTEGER)
  693.    (:STACK-TRAP #xAAA3 :D0 57 MP R))
  694.  
  695. (deftrap _INVERSEMATRIX ((M :MATRIXRECORD) (IM (:POINTER :MATRIXRECORD)))
  696.    (:STACK :BOOLEAN)
  697.    (:STACK-TRAP #xABC2 :D0 28 M IM))
  698.  
  699. (deftrap _CONCATMATRIX ((A :MATRIXRECORD) (B (:POINTER :MATRIXRECORD)))
  700.    NIL
  701.    (:STACK-TRAP #xABC2 :D0 27 A B))
  702.  
  703. (deftrap _RECTMATRIX ((MATRIX (:POINTER :MATRIXRECORD)) (SRCRECT :RECT) (DSTRECT :RECT))
  704.    NIL
  705.    (:STACK-TRAP #xABC2 :D0 30 MATRIX SRCRECT DSTRECT))
  706.  
  707. (deftrap _MAPMATRIX ((MATRIX (:POINTER :MATRIXRECORD)) (FROMRECT :RECT) (TORECT :RECT))
  708.    NIL
  709.    (:STACK-TRAP #xABC2 :D0 29 MATRIX FROMRECT TORECT))
  710.  
  711. ; $ENDC                         ;  UsingImageCompression 
  712.  
  713. ; $IFC NOT UsingIncludes
  714.  
  715. ; $ENDC
  716.  
  717. (export '($PERSPECTIVEMATRIXTYPE $LINEARTRANSLATEMATRIXTYPE $LINEARMATRIXTYPE
  718.           $SCALETRANSLATEMATRIXTYPE $SCALEMATRIXTYPE $TRANSLATEMATRIXTYPE
  719.           $IDENTITYMATRIXTYPE $SFPITEMSHOWPREVIEWBUTTON
  720.           $SFPITEMCREATEPREVIEWBUTTON $SFPITEMPREVIEWDIVIDERUSER
  721.           $SFPITEMPREVIEWSTATICTEXT $SFPITEMPREVIEWAREAUSER $SUPPRESSDITHER
  722.           $FORCEDITHER $DEFAULTDITHER $CODECPROGRESSCLOSE
  723.           $CODECPROGRESSUPDATEPERCENT $CODECPROGRESSOPEN $CODECCOMPLETIONDEST
  724.           $CODECCOMPLETIONSOURCE $CODECHIGHQUALITY $CODECNORMALQUALITY
  725.           $CODECLOWQUALITY $CODECMINQUALITY $CODECMAXQUALITY
  726.           $CODECLOSSLESSQUALITY $BESTCOMPRESSIONCODEC $BESTFIDELITYCODEC
  727.           $BESTSPEEDCODEC $ANYCODEC $DECOMPRESSORCOMPONENTTYPE
  728.           $COMPRESSORCOMPONENTTYPE $CODECMINIMUMDATASIZE $CODECOPENERR
  729.           $CODECCONDITIONERR $CODECEXTENSIONNOTFOUNDERR $CODECDATAVERSERR
  730.           $CODECBADDATAERR $CODECWOULDOFFSCREENERR $CODECABORTERR
  731.           $CODECSPOOLERR $CODECIMAGEBUFERR $CODECSCREENBUFERR $CODECSIZEERR
  732.           $CODECUNIMPERR $NOCODECERR $CODECERR $CODECFLAGUSEDIMAGEBUFFER
  733.           $CODECFLAGUSEDNEWIMAGEBUFFER $CODECFLAGINTERLACEUPDATE
  734.           $CODECFLAGDONTUSENEWIMAGEBUFFER $CODECFLAGLIVEGRAB
  735.           $CODECFLAGONLYSCREENUPDATE $CODECFLAGFORCEKEYFRAME
  736.           $CODECFLAGUPDATEPREVIOUSCOMP $CODECFLAGDONTOFFSCREEN
  737.           $CODECFLAGWASCOMPRESSED $CODECFLAGNOSCREENUPDATE
  738.           $CODECFLAGUPDATEPREVIOUS $CODECFLAGUSESCREENBUFFER
  739.           $CODECFLAGUSEIMAGEBUFFER $CODECINFOSEQUENCESENSITIVE
  740.           $CODECINFODOESLOSSLESS $CODECINFOSTORESCLUT $CODECINFODEPTH40
  741.           $CODECINFODEPTH36 $CODECINFODEPTH34 $CODECINFODEPTH33
  742.           $CODECINFODEPTH24 $CODECINFODEPTH32 $CODECINFODEPTH16
  743.           $CODECINFODEPTH8 $CODECINFODEPTH4 $CODECINFODEPTH2 $CODECINFODEPTH1
  744.           $CODECINFODOESRATECONSTRAIN $CODECINFODOESSPOOL
  745.           $CODECINFODOESRECOMPRESS $CODECINFODOESWARP $CODECINFODOESBLEND
  746.           $CODECINFODOESSKEW $CODECINFODOESVERTFLIP $CODECINFODOESHORIZFLIP
  747.           $CODECINFODOESROTATE $CODECINFODOESQUARTER $CODECINFODOESHALF
  748.           $CODECINFODOESQUAD $CODECINFODOESDOUBLE $CODECINFODOESTEMPORAL
  749.           $CODECINFODOESMASK $CODECINFODOESSHRINK $CODECINFODOESSTRETCH
  750.           $CODECINFODOESDITHER $CODECINFODOES32 $CODECINFODOES16
  751.           $CODECINFODOES8 $CODECINFODOES4 $CODECINFODOES2 $CODECINFODOES1
  752.           $GESTALTCOMPRESSIONMGR))
  753. (provide-interface 'ImageCompression)